00100	(OPS(IDIVI 231000)(JRST@ 254020))
00150	(OPS(HRRZM 552000)(MOVE@ 200020)(SKIPN 336000)(SOJG 367000)(MOVEM@ 202020))
00175	(OPS(SOJGE 365000))
00200	(DEFSYM 'NAMES BPORG)
00300	(DEFSYM 'VALS(SETQ BPORG(PLUS BPORG 100.)))
00400	(DEFSYM 'VARS(SETQ BPORG(PLUS BPORG  100.)))
00500	(DEFSYM 'VARVAL(SETQ BPORG(PLUS BPORG  30.)))
00600	(SETQ BPORG(PLUS BPORG 30.))
00605	(LAP CAPIT SUBR)
00610	(MOVEI 2 259.)
00615	AA(CLEARM  0 NAMES 2)
00620	(SOJGE 2 AA)
00625	(POPJ P 0)
00630	NIL
00635	
00700	
00800	(LAP CAP SUBR)
00900	(MOVE 2 1)
01000	(IDIVI 2 100.)
01100	IT
01200	(CAMN 1 NAMES 3)
01300	(JRST@ 0 VALS 3)
01400	(SKIPN 0 NAMES 3)
01500	(JRST 0 NOTIN)
01600	(SOJGE 3 IT)
01700	(MOVEI 3 99.)
01800	(JRST 0 IT)
01900	NOTIN
02000	(PUSH P 1)(PUSH P 3)(MOVEI 2 (QUOTE SUBR))
02100	(CALL 2(E GET))(SKIPN 2 1)(JRST 0 LOSE)
02200	(POP P 3)(POP P NAMES 3)(HRRM 1 VALS 3)(JRST 0 0 1)
02300	LOSE
02400	(MOVE 1 -1 P)
02500	(SUB P(C 0 0 2 2))
02600	(PUSH P(C 0 0 ZZ 0))(PUSH P 1)(PUSH P 2)(MOVNI 6 2)(JCALL 16(E APPLY))ZZ(POPJ P 0)
02700	NIL
02800	(LAP REST1 SUBR)
02900	(HLRZ@ 6(SPECIAL FRAME*))(HLRZ 5 0 6)(JUMPE 5 OUT)
03000	NXT(HLRZ 1 0 5)(HLRZ 2 0 1)(MOVE 3 2)(IDIVI 3 30.)
03100	VSET1(CAME 2 VARS 4)(JRST 0 VSET2)(HRRZ 2 0 1)(MOVEM@ 2 VARVAL 4)(HRRZ 5 0 5)
03200	(JUMPN 5 NXT)
03300	OUT(HRRZ 1 0 6)(POPJ P 0)
03400	VSET2(SKIPN 0 VARS 4)(C 0 0 0 0)(SOJG 4 VSET1)(MOVEI 4 29.)(JRST 0 VSET1)
03500	NIL
03600	
03700	(LAP SAVEV SUBR)
03800	(MOVEI 1 0)
03900	GV(SKIPN 2(SPECIAL SAVE))(POPJ P 0)(PUSH P 1)(HLRZ 1 0 2)(HRRZ 2 0 2)
04000	  (MOVEM 2(SPECIAL SAVE))(MOVE 2 1)(IDIVI 2 30.)
04100	GVAL1(CAME 1 VARS 3)(JRST 0 GVAL2)(MOVE@ 2 VARVAL 3)(CALL 2 (E CONS))
04200	  (POP P 2)(CALL 2(E CONS))(JRST 0 GV)
04300	GVAL2(SKIPN 0 VARS 3)(JRST 0 GVAL3)(SOJG 3 GVAL1)(MOVEI 3 29.)(JRST 0 GVAL1)
04400	GVAL3(PUSH P 1)(PUSH P 3)(MOVEI 2(QUOTE VALUE))(CALL 2(E GET))(SKIPN 2 1)
04500	(C 0 0 0 0)(POP P 3)(HRRZM 1 VARVAL 3)(POP P 1)(MOVEM 1 VARS 3)(JRST 0 GVAL1)
04600	NIL
04700